BCI NET 2/BCI NET 2.iso/archives/networking/amitcp/telser120.lha/telser/telser_install

Text File | 1995-02-27 | 6.4 KB | 211 lines

;*****************************************************************
; Telser Install V1.20 by Robert Reiswig ([e-mail]) ©1995
; If you wish to use parts of this you MUST ask!! Feb-26-95
;
; Installer suggestions or problems: [e-mail]
;                               IRC: RobR
;
;*****************************************************************

(set telserver "1.20")


;********************************************************************************
;
; Hello and What TCP/IP package
;
;********************************************************************************
(message (cat "\n\n\ntelser " telserver "\nserial telnet(d) device for AmiTCP and AS225r2\n\nby:\nSam Yee ([e-mail])\n\n"
              "Installer by:\nRobert Reiswig ([e-mail])"
         )
)


(set TCP  (askchoice (choices "AmiTCP (3.0b2, 4.0, 4.1)" "AS225r2 (Commodore)")
                     (prompt "Please select the TCP/IP package you run.")
                 (help   "Please select the TCP/IP package you run.")
                     (default 0)
      )
)


(if (= TCP 0) (set Package "AmiTCP:") )
(if (= TCP 1) (set Package "Inet:") )

;********************************************************************************
;
;See if there is a install already
;
;********************************************************************************
(if (> (exists (tackon Package "db/telser.conf")) 0)
   (
     (set backup (askchoice (choices "Update Config Files" "Keep Current Config Files")
                     (prompt "The Installer has found that you already have config files for Telser.")
                 (help   "The Installer has found that you already have config files for Telser.")
                     (default 0)
                 )
     )
   )
)


;********************************************************************************
;
;Amitcp Files
;
;********************************************************************************
(if (= TCP 0)
   (

    (set @default-dest "AmiTCP:")

    (copyfiles (source "bin/telser")  (dest "AmiTCP:bin") )
    (copyfiles (source "bin/tstelnet")  (dest "AmiTCP:bin") )
    (if (= backup 0)
      (copyfiles (source "db")  (dest "AmiTCP:db") (all) )
    )
    (copyfiles (source "devs/telser.device_amitcp")  (dest "devs:") (newname "telser.device") )
    (copyfiles (source "libs")  (dest "libs:") (all) )
    (copyfiles (source "serv/telserd_amitcp")  (dest "AmiTCP:serv") (newname "telserd") )

   )
)



;********************************************************************************
;
;AS225 files
;
;********************************************************************************
(if (= TCP 1)
   (

    (set @default-dest "Inet:")

    (copyfiles (source "c/telser")  (dest "Inet:c") )
    (copyfiles (source "bin/tstelnet")  (dest "Inet:c") )
    (if (= backup 0)
      (copyfiles (source "db")  (dest "Inet:db") (all) )
    )
    (copyfiles (source "devs/telser.device_as225")  (dest "devs:") (newname "telser.device") )
    (copyfiles (source "libs")  (dest "libs:") (all) )
    (copyfiles (source "serv/telserd_as225")  (dest "Inet:serv") (newname "telserd") )

   )
)


;********************************************************************************
;
;Move Other stuff if wanted
;
;********************************************************************************
(set viewermask (askoptions (choices "TelserMon - Monitors telser units" "Docs - Documentation" "Src - Source Code")
                (prompt "Do you wish to install any of the following?")
                (help "Do you wish to install any of the following?")
                (default 63)
        )
)

(if (<> viewermask 0)
 (


;********** TelSer Mon *************************************
  (if (IN viewermask 0)
   (
     (set telsermon (askdir (prompt "Please select where you wish to install TelserMon. The default is 'SYS:WBStartup.'")
             (help   "Select where you wish to put them. (A directory called 'Telser' will be created there!)")
             (default "SYS:WBStartup")
         )
    )

      (copyfiles (source "TelserMon")  (dest telsermon) (infos) )

   )
  )

;********** Docs *************************************
  (if (IN viewermask 1)
   (

      (set telserDir (askdir (prompt "Please select where you wish to put the Docs. (A directory called 'Telser' will be created there if it does not exist.)")
             (help   "Select where you wish to put the Docs. (A directory called 'Telser' will be created there!)")
             (default "Work:Telser")
         )
      )


      (if (< (exists (tackon telserDir "Telser")) 2)
          (makedir (tackon telserDir "Telser") (infos))
      )


      (set where (tackon telserDir "Telser"))

      (if (< (exists (tackon where "Doc")) 2)
          (makedir (tackon where "Doc") (infos))

      )
      (copyfiles (source "doc")  (dest (tackon where "Doc")) (all) )

   )
  )

;********** SRC *************************************

  (if (IN viewermask 2)
   (
     (set telserDir (askdir (prompt "Please select where you wish to put the Src. (A directory called 'Telser' will be created there if it does not exist.)")
             (help   "Select where you wish to put the Src. (A directory called 'Telser' will be created there!)")
             (default telserDir)
         )
      )


      (if (< (exists (tackon telserDir "Telser")) 2)
          (makedir (tackon telserDir "Telser") (infos))
      )


      (set where (tackon telserDir "Telser"))


     (if (< (exists (tackon where "src")) 2)
          (makedir (tackon where "src") (infos))

     )
     (copyfiles (source "src")  (dest (tackon where "src")) (all) )

   )
  )



 )
)

;********************************************************************************
;
; End send money... :)
;
;********************************************************************************
(message "\n\n\n\nThe demo version of telser allows one device unit.  Opening a second "
         "unit would fail.  If you use telser often you are recommended to register.  "
         "When you register you get unlimited units and help contribute to the future "
         "of this program."
)

(message "Registration fee: $15US for unlimited units. Canadian users may send $20CAN.\n\n"
         "Registration  fees,  questions,  ideas,  comments,  bug  reports, etc. should go to:\n\n"
         "Snail Mail: Sam Yee\n"
         "4595 Nanaimo St.\n"
         "Vancouver, B.C.\n"
         "Canada  V5N 5J5\n\n"
         "Internet: [e-mail]\n"
         "FidoNet: 1:153/765\n"
         "(Terra Firma BBS [phone])"
)